home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group03a.txt / 000044_icon-group-sender_Tue Mar 25 16:50:34 2003.msg < prev    next >
Internet Message Format  |  2003-12-22  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id h2PNnPs18801
  4.     for icon-group-addresses; Tue, 25 Mar 2003 16:49:25 -0700 (MST)
  5. Message-Id: <200303252349.h2PNnPs18801@baskerville.CS.Arizona.EDU>
  6. X-Authentication-Warning: weaver.tuc.noao.edu: swampler set sender to swampler@noao.edu using -f
  7. Subject: Re: newbie question -- ressurected
  8. From: Steve Wampler <swampler@noao.edu>
  9. To: Quiet Voice <voice_of_reason@australia.edu>
  10. Cc: icon-group@cs.arizona.edu
  11. Date: 25 Mar 2003 13:37:47 -0700
  12. Errors-To: icon-group-errors@cs.arizona.edu
  13. Status: RO
  14.  
  15. On Tue, 2003-03-25 at 11:44, Quiet Voice wrote:
  16. > Greetings:
  17. > 
  18. > Several years ago, I made a brief foray into trying to teach myself
  19. > the ICON programming language and develop some text analysis software.
  20. > After several fits-n-starts, the project sort of died on the vine.
  21. > 
  22. > I'm back at it again. Now, I'm trying to dig thru past code, remind
  23. > myself of what it was supposed to do and how...and shake out the
  24. > kinks.
  25. > 
  26. > I ran a piece of code this morning and discovered that it results in
  27. > an infinite loop.....but I can't figure out why.
  28. > 
  29. > here is the code fragment:
  30. > 
  31. > while not((line := read(data)) == "") do every
  32. > write(lettercount[!line] +:= 1)
  33. > 
  34. > {Note, this is one continuous line in the actual code}
  35. > "data" is an input text file
  36. > 
  37. > >From some debugging I've done, it seems like it keep reading from the
  38. > file after it reaches the end...it just loops back to the begining of
  39. > the file and starts over again. But I don't figure out why.
  40. > 
  41. > What am I missing?
  42.  
  43. I don't think it's looping back.  What is happening is
  44. that when the read(data) fails, the 'not' is converting that failure
  45. back into success (that's your infinite loop).
  46.  
  47. Since the assignment to line is performed after the read but before
  48. invoking not, line is retaining its last value (i.e. last line of the
  49. file), so you're seeing the characters in that last line counted over
  50. and over again.
  51.  
  52. 'not' is a tricky beast and shouldn't be confused with the not
  53. boolean operators in other languages.  In particular, you have
  54. two different points of failure in you while test clause and want
  55. to do different things on each.  While 'not' might be appropriate
  56. for one of those (the X == "") part, it isn't appropriate for
  57. the other.
  58.  
  59. Why not just try:
  60.  
  61.    while line := read(data) do
  62.       every lettercount[!line] +:= 1
  63.  
  64. instead of the above loop? (Yes, it doesn't print out each count as
  65. you compute it, but that's probably left over from debugging
  66. anyway.)  Empty lines will produce no characters in the ! operation,
  67. so you don't have to test for them.
  68.  
  69. (You can shorten the above even more, but that's probably
  70. not particularly important...)
  71.  
  72. Hope that helps!
  73. -- 
  74. Steve Wampler <swampler@noao.edu>
  75. National Solar Observatory
  76.